Imports Pacientes
Imports System.Data.SqlClient

Public Class SelecPaciente

    Private pac As Paciente = Nothing
    Private datos As DataSet = Nothing
    Private Sub SelecPaciente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.MinimizeBox = False
        Me.MaximizeBox = False

        pac = New Paciente()
        datos = pac.BuscarDatos(conexion)

        grPacientes.AutoGenerateColumns = False
        grPacientes.DataSource = datos
        grPacientes.DataMember = "paciente"


    End Sub

    Private Sub grPacientes_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grPacientes.CellClick
        'modificar o mostrar desde aqui
        If grPacientes.Columns(e.ColumnIndex).Name = "colCheck" Then
            Dim tipoDoc As Integer
            Dim numDoc As String

            Dim celda As DataGridViewButtonCell = _
                CType(Me.grPacientes.Rows(e.RowIndex).Cells("colCheck"), DataGridViewButtonCell)

            tipoDoc = Integer.Parse(grPacientes.Rows(e.RowIndex).Cells("tipodocumento").Value) 'da error dice que es nulo
            numDoc = grPacientes.Rows(e.RowIndex).Cells("documento").Value
            If banCalMon = 2 Then
                CType(Me.Owner, frmCalcularMontos).Paciente = New Paciente()
                CType(Me.Owner, frmCalcularMontos).Paciente.Buscar(tipoDoc, numDoc, conexion)
            End If
            If ban = 1 Then
                CType(Me.Owner, frmActDatosPacienteCORREGIDO).Paciente = New Paciente()
                CType(Me.Owner, frmActDatosPacienteCORREGIDO).Paciente.Buscar(tipoDoc, numDoc, conexion)
            End If
            If banModiFia = 3 Then
                CType(Me.Owner, frmModificarFIa).Paciente = New Paciente()
                CType(Me.Owner, frmModificarFIa).Paciente.Buscar(tipoDoc, numDoc, conexion)
            End If
            Close()
        End If
    End Sub
End Class